DEFINE VARIABLE iAktieNr   AS INTEGER    NO-UNDO.
DEFINE VARIABLE iCustRefNr AS INTEGER    NO-UNDO.
ASSIGN
  iAktieNr   = 1480
  iCustRefNr = 109
.

FOR EACH besteding
WHERE aktienr = iAktieNr
AND   klrefnr = 0:
  ASSIGN
    besteding.klantref  = "Intervento breve"
    besteding.klrefnr   = iCustRefNr
    besteding.klrefsub  = ""
    besteding.bevestigd = TRUE
  .
END.

RUN sy/p/foreach.p
  (INPUT SUBSTITUTE("for each besteding where aktienr = &1", iAktieNr),
   INPUT "",
   INPUT ?).

